(repeat): Make an undo boundary between repetitions.

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 318b3168fd3a0bd4bf73e519c8962f3ab4fde02f..4418043af4ceec3586b5d50de033c7ef75604fa2 100644 (file)
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -280,6 +280,8 @@ can be modified by the global variable `repeat-on-final-keystroke'."
       ;; can iterate indefinitely here around a single level of recursion.
       (let (repeat-on-final-keystroke)
         (while (eq (read-event) repeat-repeat-char)
+         ;; Make each repetition undo separately.
+         (undo-boundary)
           (repeat repeat-arg))
         (setq unread-command-events (list last-input-event))))))